If you encounter display problem, we sugest you to adjust your VGA driver to a different setting. The suggested resolution is 640 * 480 with 64K colors
photoNo
leaveBook
tbkwin.dll
leaveBook
tbkwin.dll
centerpage
tbkMCI("close AVIfile","")
playOpening
opening.avi alias
; style child" && "
" &&
hWin
sstatus
","")
-- Determine the coordinates
wRect
clientFromPage(
sysMagnification,
"AVIarea"
--Break
x,y,width,height
nWidth
nHeight
MoveWindow(
,x,y,
state
","")
wait",
le","")
/2), (
tbkmmNotify
ePage
enterPage
playOpening
buttonUp
leavePage
tbkmmNotify
enterPage
centerpage
leavePage
close AVIfile
tbkMCI
playOpening
open opening.avi alias AVIfile style child
parent
tbkMCI
status AVIfile window handle
tbkMCI
AVIarea
clientFromPage
MoveWindow
window AVIfile state show
tbkMCI
play AVIfile wait
tbkMCI
close AVIfile
tbkMCI
nHeight
nWidth
wRect
buttonUp
playOpening
tbkmmNotify
fullpage
aviarea
:PHYSSIZE
pauseVCR
default
uttonDown
mouseEnter
buttonDown
mouseLeave
buttonDown
-vpauseVCR
mouseEnter
mouseLeave
default
stopVCR
default
uttonDown
mouseEnter
buttonDown
mouseLeave
buttonDown
XstopVCR
mouseEnter
mouseLeave
default
buttonstillDown
fastplayVCR
buttonstillDown
buttonDown
mouseEnter
mouseLeave
buttonDown
buttonstillDown
buttonstillDown
fastplayVCR
mouseEnter
mouseLeave
playVCR
default
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
KplayVCR
mouseEnter
mouseLeave
default
buttonstillDown
fastreverseVCR
buttonstillDown
buttonDown
mouseEnter
mouseLeave
buttonDown
buttonstillDown
buttonstillDown
fastreverseVCR
mouseEnter
mouseLeave
4VCRplaying
4MovieNo
<> 5
stopVCR
playVCR
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
XstopVCR
KplayVCR
KplayVCR
MovieNo
VCRplaying
mouseEnter
mouseLeave
4VCRplaying
4MovieNo
<> 4
stopVCR
playVCR
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
XstopVCR
KplayVCR
KplayVCR
MovieNo
VCRplaying
mouseEnter
mouseLeave
4VCRplaying
4MovieNo
<> 3
stopVCR
playVCR
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
XstopVCR
KplayVCR
KplayVCR
MovieNo
VCRplaying
mouseEnter
mouseLeave
4VCRplaying
4MovieNo
<> 2
stopVCR
playVCR
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
XstopVCR
KplayVCR
KplayVCR
MovieNo
VCRplaying
mouseEnter
mouseLeave
4VCRplaying
4MovieNo
<> 1
stopVCR
playVCR
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
XstopVCR
KplayVCR
KplayVCR
MovieNo
VCRplaying
mouseEnter
mouseLeave
tonUp
mouseEnter
buttonUp
mouseLeave
buttonUp
mouseEnter
mouseLeave
movie
fullpage
:PHYSSIZE
aviarea
centerpage
tbkMCI("close AVIfile","")
playVCR
4MovieNo
4VCRplaying
4VCRpausing
resumeVCR
e = 0
sound NOTAPE.WAV","")
temp
& ".
" &&
&& "alias
style child" && "
" &&
hWin
status
","")
-- Determine the coordinates
wRect
clientFromPage(
sysMagnification,
"AVIarea"
--Break
x,y,width,height
nWidth
nHeight
MoveWindow(
,x,y,
state
","")
default
stopVCR
le","")
fastplayVCR
H80","")
fastreverseVCR
H-80","")
stepVCR
H1","")
stepReverseVCR
H-1","")
pauseVCR
tbkMMNotify
epage
fastplayVCR
fastreverseVCR
enterPage
stepVCR
playVCR
stepReverseVCR
pauseVCR
stopVCR
resumeVCR
leavepage
tbkMMNotify
enterPage
centerpage
leavepage
close AVIfile
tbkMCI
playVCR
play AVIfile from 0
tbkMCI
resumeVCR
sound NOTAPE.WAV
tbkMCI
alias AVIfile style child
parent
tbkMCI
status AVIfile window handle
tbkMCI
AVIarea
clientFromPage
MoveWindow
window AVIfile state show
tbkMCI
play AVIfile
tbkMCI
default
nHeight
nWidth
wRect
VCRpausing
VCRplaying
MovieNo
stopVCR
stop AVIfile
tbkMCI
close AVIfile
tbkMCI
VCRpausing
VCRplaying
fastplayVCR
step AVIfile by 80
tbkMCI
play AVIfile
tbkMCI
VCRplaying
fastreverseVCR
step AVIfile by -80
tbkMCI
play AVIfile
tbkMCI
VCRplaying
stepVCR
step AVIfile by 1
tbkMCI
play AVIfile
tbkMCI
VCRplaying
stepReverseVCR
step AVIfile by -1
tbkMCI
play AVIfile
tbkMCI
VCRplaying
pauseVCR
pause AVIfile
tbkMCI
VCRpausing
VCRplaying
resumeVCR
resume AVIfile
tbkMCI
VCRpausing
VCRplaying
tbkMMNotify
4MovieNo
Xuser
WORD GetWindowWord(
LoadMenu(
$,DWORD)
INT GetMenuItemCount(
KMenuItemID(
aMenuString(
q,POINTER,
QDestroyMenu(
--
function
used
MoveWindow(
DrawMenuBar(
SystemMetrics(
getWindowlong(
-- (hwnd,nIndex)
setWindowlong(
.,wNewWord)
X"KERNEL"
GlobalLock (
lobalUnlock (
lobalFree (
lobalAlloc (
linkDLL "tbkwin.dll"
INT xUnitsFromPixels(
yUnitsFromPixels(
--
Popup
Overlapped windows
STRING screenFromPage(
--
returns coordinates
client units
--
takes
%a parameter
--
Child
clientFromPage(
,INT,
dialog(
startupsysBooks
"tbkmm.sbk"
border,
cetc.
full
setStyle 1
-- This
here
asure that
whole
egets repainted later.
-- By doing
>o look
%we want.
-- Get
height
width
pixels.
screen_width
GetSystemMetrics(0)
screen_height
-- Define
-- Convert
ToolBook
clientarea_y_units
sysMagnification,
clientarea_x_units
"If you encounter display problem, we sugest
adjust your VGA driver
a different setting.
The suggested resolution
640 * 480
f64K colors"
unlinkDLL "
tbkdlg.
style, pvlue != 0 => no bound, pvlaue = 0 =>
SetStyle pValue
4s_original
hilo
getWindowLong(
,-16)
k65536
y65536
M = 0
(hi * 65536) + (lo)
setWindowLong(
,-16, (hi * 65536) + lo)
centerpage
handler centers
along
x axis.
left_boundary
"fullpage"
right_boundary
max_x
field_x_size
x_space
x_boundary
top_boundary
bottom_boundary
max_y
field_y_size
y_space
y_boundary
eBook
enterBook
SetStyle
centerpage
leaveBook
keyDown
enterBook
GetWindowWord
LoadMenu
GetMenuItemCount
GetMenuItemID
GetMenuString
DestroyMenu
MoveWindow
DrawMenuBar
GetSystemMetrics
getWindowlong
setWindowlong
KERNEL
GlobalLock
GlobalUnlock
GlobalFree
GlobalAlloc
tbkwin.dll
xUnitsFromPixels
yUnitsFromPixels
screenFromPage
clientFromPage
tbkdlg.dll
dialog
tbkmm.sbk
setStyle
GetSystemMetrics
GetSystemMetrics
yUnitsFromPixels
xUnitsFromPixels
If you encounter display problem, we sugest you to adjust your VGA driver to a different setting. The suggested resolution is 640 * 480 with 64K colors